home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (Latin America) Volume 1 #6 / CD-ROM Today 6 Latam.iso / referenc / picasso / data / manimaj.dxr / Internal_53.ls < prev    next >
Encoding:
Text File  |  1996-12-02  |  340 b   |  10 lines
  1. on renamecast
  2.   set castdeb to the number of member 1 of castLib "Son Maj"
  3.   repeat while the castType of cast castdeb <> 0
  4.     set cpoint to offset(".", the name of cast castdeb)
  5.     set newname to char 1 to cpoint - 1 of the name of cast castdeb
  6.     set the name of cast castdeb to newname
  7.     set castdeb to castdeb + 1
  8.   end repeat
  9. end
  10.